set ARCH_OS "[exec uname -m]-[exec uname -s]"

append auto_path " ./proto/${ARCH_OS}/lib/riif0.1/"
package require riif

foreach file [glob  [file join src examples *.RIIF]] {
	puts stdout "--------------------------------------------------------------------------------"
	puts stdout "> Now analyzing file $file"
	set result [analyze $file]
	
	# Some tcl result analysis to prove the value return mechanism
	set decs [split $result ";"]
	foreach dec $decs {
		puts stdout "> $dec"
	}
	
	puts stdout "--------------------------------------------------------------------------------"
}
